inherited frmPessoaDependentes: TfrmPessoaDependentes
  Left = 279
  Top = 110
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited Panel4: TPanel
      inherited PageControl1: TPageControl
        ActivePage = TabSheet4
        inherited TabSheet1: TTabSheet
          inherited Label12: TLabel
            Width = 64
            Caption = 'Telefone Fixo'
          end
          inherited BtnGrupo: TBitBtn
            Top = 218
          end
          inherited DBEdtCodigo: TDBEdit
            OnExit = DBEdtCodigoExit
          end
          inherited GroupBox3: TGroupBox
            Left = 0
            Width = 754
            Height = 121
            Align = alBottom
            inherited DBMObservacoes: TDBMemo
              Width = 750
              Height = 104
            end
          end
        end
        object TabSheet3: TTabSheet
          Caption = '&4- Dependentes'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImageIndex = 3
          ParentFont = False
          object Label23: TLabel
            Left = 8
            Top = 8
            Width = 12
            Height = 13
            Caption = 'N'#186
            FocusControl = DBEdit2
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label44: TLabel
            Left = 48
            Top = 8
            Width = 28
            Height = 13
            Caption = 'Nome'
            FocusControl = DBEditNomeDependente
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label46: TLabel
            Left = 384
            Top = 8
            Width = 97
            Height = 13
            Caption = 'Data de Nascimento'
            FocusControl = DBEditNascimentoDependente
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label47: TLabel
            Left = 525
            Top = 8
            Width = 54
            Height = 13
            Caption = 'Parentesco'
            FocusControl = DBlkcbParentesco
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBEdit2: TDBEdit
            Left = 8
            Top = 24
            Width = 33
            Height = 21
            TabStop = False
            DataField = 'DEP_DEPENDENTEIDF'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
          end
          object DBEditNomeDependente: TDBEdit
            Left = 48
            Top = 24
            Width = 329
            Height = 21
            CharCase = ecUpperCase
            DataField = 'DEP_NOME'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
          end
          object DBEditNascimentoDependente: TDBEdit
            Left = 384
            Top = 24
            Width = 134
            Height = 21
            DataField = 'DEP_DATANASCIMENTO'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
          end
          object DBlkcbParentesco: TDBLookupComboBox
            Left = 525
            Top = 24
            Width = 185
            Height = 21
            DataField = 'DEP_GRAU'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'PAR_CODIGO'
            ListField = 'PAR_DESCRICAO'
            ListSource = DsParentesco
            ParentFont = False
            TabOrder = 4
          end
          object DBRadioSexoDependente: TDBRadioGroup
            Left = 8
            Top = 48
            Width = 177
            Height = 41
            Caption = 'Sexo'
            Columns = 2
            DataField = 'DEP_SEXO'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'Masculino'
              'Feminino')
            ParentFont = False
            TabOrder = 5
            TabStop = True
            Values.Strings = (
              'M'
              'F')
          end
          object DBRadioEstadoCivilDependente: TDBRadioGroup
            Left = 192
            Top = 48
            Width = 373
            Height = 41
            Caption = 'Estado Civil'
            Columns = 4
            DataField = 'DEP_ESTADOCIVIL'
            DataSource = DsDependentes
            Enabled = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Items.Strings = (
              'Solteiro'
              'Casado'
              'Vi'#250'vo'
              'N'#227'o Informado')
            ParentFont = False
            TabOrder = 6
            TabStop = True
            Values.Strings = (
              'S'
              'C'
              'V'
              'N')
          end
          object DBGridDependentes: TDBGrid
            Left = 8
            Top = 96
            Width = 737
            Height = 225
            DataSource = DsDependentes
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDrawColumnCell = DBGridDependentesDrawColumnCell
            Columns = <
              item
                Expanded = False
                FieldName = 'DEP_DEPENDENTEIDF'
                Title.Caption = 'N'#186
                Width = 32
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DEP_NOME'
                Title.Caption = 'Nome'
                Width = 272
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DEP_DATANASCIMENTO'
                Title.Caption = 'Nascimento'
                Width = 75
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'DEP_SEXO'
                Title.Caption = 'Sexo'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Parentescos'
                Width = 237
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ESTADOCIVIL'
                Title.Caption = 'Est. Civil'
                Visible = True
              end>
          end
          object btNovoDependente: TButton
            Left = 352
            Top = 328
            Width = 75
            Height = 25
            Caption = 'Novo'
            Enabled = False
            TabOrder = 7
            OnClick = btNovoDependenteClick
          end
          object btGravarDependente: TButton
            Left = 432
            Top = 328
            Width = 75
            Height = 25
            Caption = 'Gravar'
            Enabled = False
            TabOrder = 8
            OnClick = btGravarDependenteClick
          end
          object btVoltarDependente: TButton
            Left = 512
            Top = 328
            Width = 75
            Height = 25
            Caption = 'Voltar'
            Enabled = False
            TabOrder = 9
            OnClick = btVoltarDependenteClick
          end
          object btAlterarDependente: TButton
            Left = 592
            Top = 328
            Width = 75
            Height = 25
            Caption = 'Alterar'
            Enabled = False
            TabOrder = 10
            OnClick = btAlterarDependenteClick
          end
          object btExcluirDependente: TButton
            Left = 672
            Top = 328
            Width = 75
            Height = 25
            Caption = 'Excluir'
            Enabled = False
            TabOrder = 11
            OnClick = btExcluirDependenteClick
          end
        end
        object TabSheet4: TTabSheet
          Caption = '&5- Dados do Plano'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImageIndex = 4
          ParentFont = False
          OnShow = TabSheet4Show
          object Label48: TLabel
            Left = 8
            Top = 8
            Width = 52
            Height = 13
            Caption = 'ContratoIdf'
            FocusControl = DBEditIdfContrato
          end
          object Label49: TLabel
            Left = 80
            Top = 8
            Width = 95
            Height = 13
            Caption = 'N'#250'mero do Contrato'
            FocusControl = DBEditNumeroContrato
          end
          object Label50: TLabel
            Left = 200
            Top = 8
            Width = 27
            Height = 13
            Caption = 'Plano'
            FocusControl = DBLkcbPlanoContrato
          end
          object Label51: TLabel
            Left = 8
            Top = 49
            Width = 87
            Height = 13
            Caption = 'Valor da Matr'#237'cula'
            FocusControl = DBEditValorMatricula
          end
          object Label52: TLabel
            Left = 568
            Top = 49
            Width = 102
            Height = 13
            Caption = 'Valor da Mensalidade'
            FocusControl = DBEditValorContrato
          end
          object Label53: TLabel
            Left = 328
            Top = 49
            Width = 79
            Height = 13
            Caption = 'Desconto (Total)'
            FocusControl = DBEditDescontoContrato
          end
          object Label54: TLabel
            Left = 440
            Top = 49
            Width = 82
            Height = 13
            Caption = 'Acr'#233'scimo (Total)'
            FocusControl = DBEditAcrescimoContrato
          end
          object Label55: TLabel
            Left = 416
            Top = 8
            Width = 85
            Height = 13
            Caption = 'In'#237'cio do Contrato'
            FocusControl = DBEditInicioContrato
          end
          object Label56: TLabel
            Left = 560
            Top = 8
            Width = 80
            Height = 13
            Caption = 'Final do Contrato'
            FocusControl = DBEditFinalContrato
          end
          object Label57: TLabel
            Left = 256
            Top = 49
            Width = 41
            Height = 13
            Caption = 'Parcelas'
            FocusControl = DBEditParcelasContrato
          end
          object Label58: TLabel
            Left = 8
            Top = 88
            Width = 44
            Height = 13
            Caption = 'Empresa:'
          end
          object Label59: TLabel
            Left = 128
            Top = 49
            Width = 118
            Height = 13
            Caption = 'Dependentes Adicionais:'
            FocusControl = DBEditDependentesAdicionais
          end
          object DBEditIdfContrato: TDBEdit
            Left = 8
            Top = 24
            Width = 65
            Height = 21
            DataField = 'PCN_CONTRATOIDF'
            DataSource = dsContratos
            Enabled = False
            ReadOnly = True
            TabOrder = 0
          end
          object DBEditNumeroContrato: TDBEdit
            Left = 80
            Top = 24
            Width = 113
            Height = 21
            CharCase = ecUpperCase
            DataField = 'PCN_CONTRATOCOD'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 1
            OnExit = DBEdtCodigoExit
          end
          object DBLkcbPlanoContrato: TDBLookupComboBox
            Left = 200
            Top = 24
            Width = 209
            Height = 21
            DataField = 'PCN_PLANOIDF'
            DataSource = dsContratos
            Enabled = False
            KeyField = 'PLA_CODIGO'
            ListField = 'PLA_DESCRICAO'
            ListSource = dsPlanos
            TabOrder = 2
          end
          object DBEditValorMatricula: TDBEdit
            Left = 8
            Top = 65
            Width = 113
            Height = 21
            DataField = 'PCN_VALORMATR'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 5
            OnExit = DBEditFinalContratoExit
          end
          object DBEditValorContrato: TDBEdit
            Left = 568
            Top = 65
            Width = 121
            Height = 21
            DataField = 'PCN_VALORMENSAL'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 10
            OnExit = DBEditValorContratoExit
          end
          object DBEditDescontoContrato: TDBEdit
            Left = 328
            Top = 65
            Width = 105
            Height = 21
            DataField = 'PCN_DESCONTOTOTAL'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 8
            OnExit = DBEditFinalContratoExit
          end
          object DBEditAcrescimoContrato: TDBEdit
            Left = 440
            Top = 65
            Width = 121
            Height = 21
            DataField = 'PCN_ACRESCIMOTOTAL'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 9
            OnExit = DBEditFinalContratoExit
          end
          object DBEditInicioContrato: TDBEdit
            Left = 416
            Top = 24
            Width = 134
            Height = 21
            DataField = 'PCN_DATAINICIO'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 3
            OnExit = DBEditInicioContratoExit
          end
          object DBEditFinalContrato: TDBEdit
            Left = 560
            Top = 24
            Width = 134
            Height = 21
            DataField = 'PCN_DATAFIM'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 4
            OnExit = DBEditFinalContratoExit
          end
          object DBEditParcelasContrato: TDBEdit
            Left = 256
            Top = 65
            Width = 65
            Height = 21
            DataField = 'PCN_PARCELAS'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 7
            OnExit = DBEditFinalContratoExit
          end
          object DBGrid1: TDBGrid
            Left = 8
            Top = 136
            Width = 737
            Height = 193
            DataSource = dsContratos
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            TabOrder = 14
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDrawColumnCell = DBGridDependentesDrawColumnCell
            Columns = <
              item
                Expanded = False
                FieldName = 'PCN_CONTRATOCOD'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Plano'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PCN_CANCELADO'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PCN_DATAINICIO'
                Title.Caption = 'In'#237'cio'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PCN_DATAFIM'
                Title.Caption = 'Fim'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'PCN_PARCELAS'
                Title.Caption = 'Parcelas'
                Visible = True
              end>
          end
          object BtNovoContrato: TButton
            Left = 88
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Novo'
            Enabled = False
            TabOrder = 15
            OnClick = BtNovoContratoClick
          end
          object btGravarContrato: TButton
            Left = 168
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Gravar'
            Enabled = False
            TabOrder = 16
            OnClick = btGravarContratoClick
          end
          object btVoltarContrato: TButton
            Left = 248
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Voltar'
            Enabled = False
            TabOrder = 17
            OnClick = btVoltarContratoClick
          end
          object btAlterarContrato: TButton
            Left = 328
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Alterar'
            Enabled = False
            TabOrder = 18
            OnClick = btAlterarContratoClick
          end
          object BtExcluirContrato: TButton
            Left = 408
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Excluir'
            Enabled = False
            TabOrder = 19
            OnClick = BtExcluirContratoClick
          end
          object DBEditEmpresa: TDBEdit
            Left = 8
            Top = 104
            Width = 49
            Height = 21
            DataField = 'PCN_EMPRESA'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 11
            OnExit = DBEditEmpresaExit
          end
          object btnemp: TBitBtn
            Left = 58
            Top = 104
            Width = 21
            Height = 21
            Caption = '...'
            Enabled = False
            TabOrder = 12
            OnClick = btnempClick
          end
          object StEmpresa: TStaticText
            Left = 80
            Top = 104
            Width = 665
            Height = 21
            AutoSize = False
            BorderStyle = sbsSingle
            TabOrder = 13
          end
          object DBEditDependentesAdicionais: TDBEdit
            Left = 128
            Top = 65
            Width = 121
            Height = 21
            DataField = 'PCN_DEPADICIONAIS'
            DataSource = dsContratos
            Enabled = False
            TabOrder = 6
            OnExit = DBEditFinalContratoExit
          end
          object btnImprimirContrato: TBitBtn
            Left = 493
            Top = 336
            Width = 90
            Height = 25
            Caption = '&Imprimir Contrato'
            Enabled = False
            TabOrder = 20
            OnClick = btnImprimirContratoClick
            NumGlyphs = 2
          end
          object btnEmiteCarteira: TBitBtn
            Left = 674
            Top = 336
            Width = 75
            Height = 25
            Caption = 'Emitir Carteira'
            Enabled = False
            TabOrder = 21
            OnClick = btnEmiteCarteiraClick
          end
          object btnPrintAll: TBitBtn
            Left = 585
            Top = 336
            Width = 86
            Height = 25
            Caption = 'Carnet - Imprimir'
            Enabled = False
            TabOrder = 22
            OnClick = btnPrintAllClick
            NumGlyphs = 2
          end
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    Left = 104
    Top = 338
  end
  inherited SQLC_Pessoa: TZQuery
    Left = 132
    Top = 339
  end
  inherited ZUpdatePessoa: TZUpdateSQL
    InsertSQL.Strings = (
      'INSERT INTO PESSOAS'
      '  (PES_IDFCOD,PES_PESSOA, PES_CLIFOR, PES_NOME, PES_FANTASIA, '
      'PES_ENDERECO, PES_COMPLEMENTO, '
      '   PES_BAIRRO, PES_POSTAL, PES_ESTADO, PES_CIDADE, '
      'PES_CPFCNPJ, PES_IDEINS, '
      '   PES_NASCIM, PES_CADASTRO, PES_GRUPO, PES_FONE, '
      'PES_CELULAR, PES_EMAIL, '
      '   PES_OBSERVA, PES_SEXO, PES_ESTADOCIVIL, PES_TIPORESIDE, '
      'PES_TEMPORESIDE, '
      '   PES_CTRABALHO, PES_CENDERECO, PES_CCOMPLEMENTO, '
      'PES_CBAIRRO, PES_CCIDADE, '
      '   PES_CESTADO, PES_CPOSTAL, PES_CFONE, PES_CREFERENCIA, '
      'PES_CRENDA, PES_CADMISSAO, '
      '   PES_CAPROVADO, PES_CDIAVENCIM, PES_CLIMITE, '
      'PES_CCORRES, PES_FILIACAO, '
      '   PES_PROFISSAO, PES_CODIGO, PES_VENCIMENTO, '
      'PES_DEPEXCEDENTE, PES_SERVICOEXEC)'
      'VALUES'
      
        '  (:PES_IDFCOD, :PES_PESSOA, :PES_CLIFOR, :PES_NOME, :PES_FANTAS' +
        'IA, '
      ':PES_ENDERECO, :PES_COMPLEMENTO, '
      '   :PES_BAIRRO, :PES_POSTAL, :PES_ESTADO, :PES_CIDADE, '
      ':PES_CPFCNPJ, :PES_IDEINS, '
      '   :PES_NASCIM, :PES_CADASTRO, :PES_GRUPO, :PES_FONE, '
      ':PES_CELULAR, :PES_EMAIL, '
      '   :PES_OBSERVA, :PES_SEXO, :PES_ESTADOCIVIL, '
      ':PES_TIPORESIDE, :PES_TEMPORESIDE, '
      '   :PES_CTRABALHO, :PES_CENDERECO, :PES_CCOMPLEMENTO, '
      ':PES_CBAIRRO, :PES_CCIDADE, '
      '   :PES_CESTADO, :PES_CPOSTAL, :PES_CFONE, '
      ':PES_CREFERENCIA, :PES_CRENDA, '
      '   :PES_CADMISSAO, :PES_CAPROVADO, :PES_CDIAVENCIM, '
      ':PES_CLIMITE, :PES_CCORRES, '
      '   :PES_FILIACAO, :PES_PROFISSAO, :PES_CODIGO, '
      ':PES_VENCIMENTO, :PES_DEPEXCEDENTE, '
      '   :PES_SERVICOEXEC)')
    Left = 134
    Top = 370
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PES_PESSOA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CLIFOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_NOME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FANTASIA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ENDERECO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_COMPLEMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_BAIRRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_POSTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ESTADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CIDADE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CPFCNPJ'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_IDEINS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_NASCIM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CADASTRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_GRUPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CELULAR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_EMAIL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_OBSERVA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_SEXO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_ESTADOCIVIL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_TIPORESIDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_TEMPORESIDE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CTRABALHO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CENDERECO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCOMPLEMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CBAIRRO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCIDADE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CESTADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CPOSTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CFONE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CREFERENCIA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CRENDA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CADMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CAPROVADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CDIAVENCIM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CLIMITE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CCORRES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_FILIACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_PROFISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_CODIGO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_DEPEXCEDENTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_SERVICOEXEC'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PES_IDFCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
  end
  inherited DSP_PESSOA: TDataSetProvider
    Left = 497
    Top = 341
  end
  inherited CDS_PESSOAS: TClientDataSet
    Left = 105
    Top = 365
  end
  object DsDependentes: TDataSource
    AutoEdit = False
    DataSet = CDS_DEPENDENTES
    OnStateChange = DsDependentesStateChange
    Left = 560
    Top = 376
  end
  object dsContratos: TDataSource
    AutoEdit = False
    DataSet = CDS_CONTRATOS
    OnStateChange = dsContratosStateChange
    Left = 528
    Top = 376
  end
  object SQLC_IMPRESSAO: TSQLClientDataSet
    CommandText = 
      'SELECT P.PES_IDFCOD, PC.PCN_CONTRATOCOD, P.PES_NOME, P.PES_FANTA' +
      'SIA,'#13#10'P.PES_SEXO, (CASE P.PES_ESTADOCIVIL'#13#10#9#9#9'WHEN '#39'C'#39' THEN '#39'CAS' +
      'ADO'#39#13#10'            WHEN '#39'V'#39' THEN '#39'VI'#218'VO'#39#13#10'            WHEN '#39'S'#39' TH' +
      'EN '#39'SOLTEIRO'#39' END) AS ESTADO_CIVIL, P.PES_NASCIM, P.PES_IDEINS, ' +
      'P.PES_SEXO, '#13#10#9'P.PES_ESTADOCIVIL, P.PES_CPFCNPJ, P.PES_PROFISSAO' +
      ', P.PES_ENDERECO,'#13#10'    P.PES_COMPLEMENTO, P.PES_BAIRRO, P.PES_PO' +
      'STAL, CD.CID_DESCRI, CD.CID_ESTCOD,'#13#10'    P.PES_FONE, P.PES_CELUL' +
      'AR, P.PES_OBSERVA, PP.PLA_DESCRICAO, PP.PLA_CODIGO,'#13#10'    PC.PCN_' +
      'VALORMATR, PC.PCN_VALORMENSAL, PP.PLA_VALOR,PP.PLA_OBSERVACOES F' +
      'ROM '#13#10'PESSOAS P INNER JOIN'#13#10'PESSOAS_CONTRATOS PC ON'#13#10'PC.PCN_PESS' +
      'OAIDF = P.PES_IDFCOD'#13#10'INNER JOIN'#13#10'CIDADES CD ON'#13#10'CD.CID_CODIGO =' +
      ' P.PES_CIDADE'#13#10'AND'#13#10'CD.CID_ESTCOD = P.PES_ESTADO'#13#10'INNER JOIN PES' +
      'SOAS_PLANOS PP ON PP.PLA_CODIGO = PC.PCN_PLANOIDF'#13#10'WHERE PCN_CON' +
      'TRATOIDF = :PCN_CONTRATOIDF'#13#10'ORDER BY P.PES_IDFCOD'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'PCN_CONTRATOIDF'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 241
    Top = 341
  end
  object RvContrato: TRvProject
    Engine = DtmGeral.RvS_Relatorios
    Left = 305
    Top = 341
  end
  object RdsImpressao: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_IMPRESSAO
    Left = 305
    Top = 373
  end
  object SQLC_IMPREDEP: TSQLClientDataSet
    CommandText = 
      'SELECT PD.DEP_PESSOAIDF, PD.DEP_NOME, PG.PAR_DESCRICAO, '#13#10'    PD' +
      '.DEP_SEXO, (CASE PD.DEP_ESTADOCIVIL'#13#10#9#9#9'WHEN '#39'C'#39' THEN '#39'CASADO'#39#13#10 +
      '            WHEN '#39'V'#39' THEN '#39'VI'#218'VO'#39#13#10'            WHEN '#39'S'#39' THEN '#39'SO' +
      'LTEIRO'#39' END) AS ESTADO_CIVIL_DEP, PD.DEP_DATANASCIMENTO  FROM '#13#10 +
      'PESSOA_DEPENDENTES PD INNER JOIN'#13#10'PESSOA_PARENTESCOS PG ON PG.PA' +
      'R_CODIGO = PD.DEP_GRAU'#13#10'WHERE PD.DEP_PESSOAIDF = :PCN_PESSOA_IDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'PCN_PESSOA_IDF'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 241
    Top = 373
  end
  object rdv_dependentes: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_IMPREDEP
    Left = 273
    Top = 373
  end
  object SQLCDependentes: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateDependente
    SQL.Strings = (
      'SELECT '
      '    DEP_PESSOAIDF,'
      '     DEP_DEPENDENTEIDF,'
      '     DEP_NOME,'
      '     DEP_ESTADOCIVIL,'
      '     DEP_DATANASCIMENTO,'
      '     DEP_GRAU,'
      '     DEP_SEXO'
      'FROM PESSOA_DEPENDENTES'
      'WHERE DEP_PESSOAIDF = :PES_IDFCOD'
      'ORDER BY DEP_DEPENDENTEIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    Left = 337
    Top = 341
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    object SQLCDependentesDEP_PESSOAIDF: TIntegerField
      FieldName = 'DEP_PESSOAIDF'
      Required = True
    end
    object SQLCDependentesDEP_DEPENDENTEIDF: TIntegerField
      FieldName = 'DEP_DEPENDENTEIDF'
      Required = True
    end
    object SQLCDependentesDEP_NOME: TStringField
      FieldName = 'DEP_NOME'
      Required = True
      Size = 60
    end
    object SQLCDependentesDEP_ESTADOCIVIL: TStringField
      FieldName = 'DEP_ESTADOCIVIL'
      Size = 1
    end
    object SQLCDependentesDEP_DATANASCIMENTO: TDateField
      FieldName = 'DEP_DATANASCIMENTO'
    end
    object SQLCDependentesDEP_GRAU: TIntegerField
      FieldName = 'DEP_GRAU'
      Required = True
    end
    object SQLCDependentesDEP_SEXO: TStringField
      FieldName = 'DEP_SEXO'
      Required = True
      Size = 1
    end
    object SQLCDependentesParentescos: TStringField
      FieldKind = fkLookup
      FieldName = 'Parentescos'
      LookupDataSet = SQLC_PARENTESCO
      LookupKeyFields = 'PAR_CODIGO'
      LookupResultField = 'PAR_DESCRICAO'
      KeyFields = 'DEP_GRAU'
      Size = 40
      Lookup = True
    end
  end
  object ZUpdateDependente: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PESSOA_DEPENDENTES'
      'WHERE'
      '  PESSOA_DEPENDENTES.DEP_PESSOAIDF = '
      ':OLD_DEP_PESSOAIDF AND'
      '  PESSOA_DEPENDENTES.DEP_DEPENDENTEIDF = '
      ':OLD_DEP_DEPENDENTEIDF')
    InsertSQL.Strings = (
      'INSERT INTO PESSOA_DEPENDENTES'
      '  (DEP_PESSOAIDF, DEP_DEPENDENTEIDF, DEP_NOME, '
      'DEP_ESTADOCIVIL, DEP_DATANASCIMENTO, '
      '   DEP_GRAU, DEP_SEXO)'
      'VALUES'
      '  (:DEP_PESSOAIDF, :DEP_DEPENDENTEIDF, :DEP_NOME, '
      ':DEP_ESTADOCIVIL, :DEP_DATANASCIMENTO, '
      '   :DEP_GRAU, :DEP_SEXO)')
    ModifySQL.Strings = (
      'UPDATE PESSOA_DEPENDENTES SET'
      '  DEP_DEPENDENTEIDF=:DEP_DEPENDENTEIDF,'
      '  DEP_NOME = :DEP_NOME,'
      '  DEP_ESTADOCIVIL = :DEP_ESTADOCIVIL,'
      '  DEP_DATANASCIMENTO = :DEP_DATANASCIMENTO,'
      '  DEP_GRAU = :DEP_GRAU,'
      '  DEP_SEXO = :DEP_SEXO'
      'WHERE'
      '  PESSOA_DEPENDENTES.DEP_PESSOAIDF = '
      ':OLD_DEP_PESSOAIDF AND'
      '  PESSOA_DEPENDENTES.DEP_DEPENDENTEIDF = '
      ':OLD_DEP_DEPENDENTEIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 433
    Top = 373
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DEP_DEPENDENTEIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_NOME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_ESTADOCIVIL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_DATANASCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_GRAU'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_SEXO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_DEP_PESSOAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_DEP_DEPENDENTEIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DEP_PESSOAIDF'
        ParamType = ptUnknown
      end>
  end
  object SQLC_PARENTESCO: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT * FROM PESSOA_PARENTESCOS'
      'ORDER BY PAR_DESCRICAO')
    Params = <>
    Left = 337
    Top = 373
    object SQLC_PARENTESCOPAR_CODIGO: TIntegerField
      FieldName = 'PAR_CODIGO'
      Required = True
    end
    object SQLC_PARENTESCOPAR_DESCRICAO: TStringField
      FieldName = 'PAR_DESCRICAO'
      Required = True
      Size = 40
    end
  end
  object SQLC_CONTRATOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateContrato
    SQL.Strings = (
      'select *'
      'from PESSOAS_CONTRATOS'
      'WHERE '
      'PCN_PESSOAIDF = :PES_IDFCOD')
    Params = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    Left = 401
    Top = 341
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    object SQLC_CONTRATOSPCN_PESSOAIDF: TIntegerField
      FieldName = 'PCN_PESSOAIDF'
      Required = True
    end
    object SQLC_CONTRATOSPCN_PLANOIDF: TIntegerField
      FieldName = 'PCN_PLANOIDF'
      Required = True
    end
    object SQLC_CONTRATOSPCN_VALORMATR: TFloatField
      FieldName = 'PCN_VALORMATR'
    end
    object SQLC_CONTRATOSPCN_VALORMENSAL: TFloatField
      FieldName = 'PCN_VALORMENSAL'
    end
    object SQLC_CONTRATOSPCN_DESCONTOTOTAL: TFloatField
      FieldName = 'PCN_DESCONTOTOTAL'
    end
    object SQLC_CONTRATOSPCN_ACRESCIMOTOTAL: TFloatField
      FieldName = 'PCN_ACRESCIMOTOTAL'
    end
    object SQLC_CONTRATOSPCN_DATAINICIO: TDateField
      FieldName = 'PCN_DATAINICIO'
    end
    object SQLC_CONTRATOSPCN_DATAFIM: TDateField
      FieldName = 'PCN_DATAFIM'
    end
    object SQLC_CONTRATOSPCN_CANCELADO: TStringField
      DisplayLabel = 'Cancelado'
      FieldName = 'PCN_CANCELADO'
      Size = 1
    end
    object SQLC_CONTRATOSPCN_PARCELAS: TIntegerField
      FieldName = 'PCN_PARCELAS'
    end
    object SQLC_CONTRATOSPCN_CONTRATOIDF: TIntegerField
      FieldName = 'PCN_CONTRATOIDF'
      Required = True
    end
    object SQLC_CONTRATOSPCN_CONTRATOCOD: TStringField
      DisplayLabel = 'Contrato'
      FieldName = 'PCN_CONTRATOCOD'
      Required = True
      Size = 13
    end
    object SQLC_CONTRATOSPCN_USUARIO: TStringField
      FieldName = 'PCN_USUARIO'
      Required = True
      Size = 3
    end
    object SQLC_CONTRATOSPCN_EMPRESA: TSmallintField
      FieldName = 'PCN_EMPRESA'
      Required = True
    end
    object SQLC_CONTRATOSPCN_DEPADICIONAIS: TSmallintField
      FieldName = 'PCN_DEPADICIONAIS'
    end
    object SQLC_CONTRATOSPlano: TStringField
      FieldKind = fkLookup
      FieldName = 'Plano'
      LookupDataSet = SQLC_PLANOS
      LookupKeyFields = 'PLA_CODIGO'
      LookupResultField = 'PLA_DESCRICAO'
      KeyFields = 'PCN_PLANOIDF'
      Size = 40
      Lookup = True
    end
  end
  object SQLC_PLANOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'select * from pessoas_Planos')
    Params = <>
    Left = 593
    Top = 355
    object SQLC_PLANOSPLA_CODIGO: TIntegerField
      FieldName = 'PLA_CODIGO'
      Required = True
    end
    object SQLC_PLANOSPLA_DESCRICAO: TStringField
      FieldName = 'PLA_DESCRICAO'
      Required = True
      Size = 60
    end
    object SQLC_PLANOSPLA_OBSERVACOES: TMemoField
      FieldName = 'PLA_OBSERVACOES'
      BlobType = ftMemo
    end
    object SQLC_PLANOSPLA_VALOR: TFloatField
      FieldName = 'PLA_VALOR'
      Required = True
    end
    object SQLC_PLANOSPLA_VALORDEPENDENTE: TFloatField
      FieldName = 'PLA_VALORDEPENDENTE'
      Required = True
    end
    object SQLC_PLANOSPLA_VALORINSCRICAO: TFloatField
      FieldName = 'PLA_VALORINSCRICAO'
    end
    object SQLC_PLANOSPLA_CONTA: TStringField
      FieldName = 'PLA_CONTA'
      Required = True
      Size = 3
    end
    object SQLC_PLANOSPLA_SUBCONTA: TStringField
      FieldName = 'PLA_SUBCONTA'
      Required = True
      Size = 3
    end
  end
  object ZUpdateContrato: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM PESSOAS_CONTRATOS'
      'WHERE'
      '  PESSOAS_CONTRATOS.PCN_CONTRATOIDF = '
      ':OLD_PCN_CONTRATOIDF')
    InsertSQL.Strings = (
      'INSERT INTO PESSOAS_CONTRATOS'
      '  (PCN_PESSOAIDF, PCN_PLANOIDF, PCN_VALORMATR, '
      'PCN_VALORMENSAL, PCN_DESCONTOTOTAL, '
      '   PCN_ACRESCIMOTOTAL, PCN_DATAINICIO, PCN_DATAFIM, '
      'PCN_CANCELADO, PCN_PARCELAS, '
      '   PCN_CONTRATOCOD, PCN_USUARIO, PCN_EMPRESA, '
      'PCN_DEPADICIONAIS)'
      'VALUES'
      '  (:PCN_PESSOAIDF, :PCN_PLANOIDF, :PCN_VALORMATR, '
      ':PCN_VALORMENSAL, :PCN_DESCONTOTOTAL, '
      '   :PCN_ACRESCIMOTOTAL, :PCN_DATAINICIO, :PCN_DATAFIM, '
      ':PCN_CANCELADO, '
      '   :PCN_PARCELAS, :PCN_CONTRATOCOD, :PCN_USUARIO, '
      ':PCN_EMPRESA, :PCN_DEPADICIONAIS)')
    ModifySQL.Strings = (
      'UPDATE PESSOAS_CONTRATOS SET'
      '  PCN_PESSOAIDF = :PCN_PESSOAIDF,'
      '  PCN_PLANOIDF = :PCN_PLANOIDF,'
      '  PCN_VALORMATR = :PCN_VALORMATR,'
      '  PCN_VALORMENSAL = :PCN_VALORMENSAL,'
      '  PCN_DESCONTOTOTAL = :PCN_DESCONTOTOTAL,'
      '  PCN_ACRESCIMOTOTAL = :PCN_ACRESCIMOTOTAL,'
      '  PCN_DATAINICIO = :PCN_DATAINICIO,'
      '  PCN_DATAFIM = :PCN_DATAFIM,'
      '  PCN_CANCELADO = :PCN_CANCELADO,'
      '  PCN_PARCELAS = :PCN_PARCELAS,'
      '  PCN_CONTRATOCOD = :PCN_CONTRATOCOD,'
      '  PCN_USUARIO = :PCN_USUARIO,'
      '  PCN_EMPRESA = :PCN_EMPRESA,'
      '  PCN_DEPADICIONAIS = :PCN_DEPADICIONAIS'
      'WHERE'
      '  PESSOAS_CONTRATOS.PCN_CONTRATOIDF = '
      ':OLD_PCN_CONTRATOIDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 369
    Top = 341
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCN_PESSOAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_PLANOIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_VALORMATR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_VALORMENSAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_DESCONTOTOTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_ACRESCIMOTOTAL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_DATAINICIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_DATAFIM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_CANCELADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_PARCELAS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_CONTRATOCOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCN_DEPADICIONAIS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PCN_CONTRATOIDF'
        ParamType = ptUnknown
      end>
  end
  object ZQueryPesquisa: TZReadOnlyQuery
    Connection = DtmGeral.ZConexaoBanco
    Params = <>
    Left = 369
    Top = 373
  end
  object DSP_CONTRATOS: TDataSetProvider
    DataSet = SQLC_CONTRATOS
    Left = 465
    Top = 375
  end
  object DSP_DEPENDENTES: TDataSetProvider
    DataSet = SQLCDependentes
    Left = 497
    Top = 375
  end
  object CDS_CONTRATOS: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_CONTRATOS'
    Left = 433
    Top = 343
    object CDS_CONTRATOSPCN_PESSOAIDF: TIntegerField
      FieldName = 'PCN_PESSOAIDF'
      Required = True
    end
    object CDS_CONTRATOSPCN_PLANOIDF: TIntegerField
      FieldName = 'PCN_PLANOIDF'
      Required = True
    end
    object CDS_CONTRATOSPCN_VALORMATR: TFloatField
      FieldName = 'PCN_VALORMATR'
    end
    object CDS_CONTRATOSPCN_VALORMENSAL: TFloatField
      FieldName = 'PCN_VALORMENSAL'
    end
    object CDS_CONTRATOSPCN_DESCONTOTOTAL: TFloatField
      FieldName = 'PCN_DESCONTOTOTAL'
    end
    object CDS_CONTRATOSPCN_ACRESCIMOTOTAL: TFloatField
      FieldName = 'PCN_ACRESCIMOTOTAL'
    end
    object CDS_CONTRATOSPCN_DATAINICIO: TDateField
      FieldName = 'PCN_DATAINICIO'
    end
    object CDS_CONTRATOSPCN_DATAFIM: TDateField
      FieldName = 'PCN_DATAFIM'
    end
    object CDS_CONTRATOSPCN_CANCELADO: TStringField
      FieldName = 'PCN_CANCELADO'
      Size = 1
    end
    object CDS_CONTRATOSPCN_PARCELAS: TIntegerField
      FieldName = 'PCN_PARCELAS'
    end
    object CDS_CONTRATOSPCN_CONTRATOIDF: TIntegerField
      FieldName = 'PCN_CONTRATOIDF'
      Required = True
    end
    object CDS_CONTRATOSPCN_CONTRATOCOD: TStringField
      FieldName = 'PCN_CONTRATOCOD'
      Required = True
      Size = 13
    end
    object CDS_CONTRATOSPCN_USUARIO: TStringField
      FieldName = 'PCN_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_CONTRATOSPCN_EMPRESA: TSmallintField
      FieldName = 'PCN_EMPRESA'
      Required = True
    end
    object CDS_CONTRATOSPCN_DEPADICIONAIS: TSmallintField
      FieldName = 'PCN_DEPADICIONAIS'
    end
    object CDS_CONTRATOSPlano: TStringField
      FieldKind = fkLookup
      FieldName = 'Plano'
      LookupDataSet = SQLC_PLANOS
      LookupKeyFields = 'PLA_CODIGO'
      LookupResultField = 'PLA_DESCRICAO'
      KeyFields = 'PCN_PLANOIDF'
      ReadOnly = True
      Size = 40
      Lookup = True
    end
  end
  object CDS_DEPENDENTES: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'PES_IDFCOD'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_DEPENDENTES'
    OnCalcFields = CDS_DEPENDENTESCalcFields
    Left = 465
    Top = 343
    object CDS_DEPENDENTESDEP_PESSOAIDF: TIntegerField
      FieldName = 'DEP_PESSOAIDF'
      Required = True
    end
    object CDS_DEPENDENTESDEP_DEPENDENTEIDF: TIntegerField
      FieldName = 'DEP_DEPENDENTEIDF'
      Required = True
    end
    object CDS_DEPENDENTESDEP_NOME: TStringField
      FieldName = 'DEP_NOME'
      Required = True
      Size = 60
    end
    object CDS_DEPENDENTESDEP_ESTADOCIVIL: TStringField
      FieldName = 'DEP_ESTADOCIVIL'
      Size = 1
    end
    object CDS_DEPENDENTESDEP_DATANASCIMENTO: TDateField
      FieldName = 'DEP_DATANASCIMENTO'
    end
    object CDS_DEPENDENTESDEP_GRAU: TIntegerField
      FieldName = 'DEP_GRAU'
      Required = True
    end
    object CDS_DEPENDENTESDEP_SEXO: TStringField
      FieldName = 'DEP_SEXO'
      Required = True
      Size = 1
    end
    object CDS_DEPENDENTESParentescos: TStringField
      FieldKind = fkLookup
      FieldName = 'Parentescos'
      LookupDataSet = SQLC_PARENTESCO
      LookupKeyFields = 'PAR_CODIGO'
      LookupResultField = 'PAR_DESCRICAO'
      KeyFields = 'DEP_GRAU'
      ReadOnly = True
      Size = 40
      Lookup = True
    end
    object CDS_DEPENDENTESESTADOCIVIL: TStringField
      FieldKind = fkCalculated
      FieldName = 'ESTADOCIVIL'
      Size = 15
      Calculated = True
    end
  end
  object SQLC_IMPREEMP: TSQLClientDataSet
    CommandText = 
      'SELECT EMPRESAS.* FROM PESSOAS_CONTRATOS, EMPRESAS'#13#10'WHERE EMP_CO' +
      'DIGO=PCN_EMPRESA'#13#10'AND PCN_CONTRATOIDF=:PCN_CONTRATOIDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCN_CONTRATOIDF'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 273
    Top = 341
    object SQLC_IMPREEMPEMP_CODIGO: TSmallintField
      FieldName = 'EMP_CODIGO'
      Required = True
    end
    object SQLC_IMPREEMPEMP_MATFIL: TStringField
      FieldName = 'EMP_MATFIL'
      Required = True
      Size = 1
    end
    object SQLC_IMPREEMPEMP_ATIVA: TStringField
      FieldName = 'EMP_ATIVA'
      Required = True
      Size = 1
    end
    object SQLC_IMPREEMPEMP_TIPPRE: TStringField
      FieldName = 'EMP_TIPPRE'
      Required = True
      Size = 1
    end
    object SQLC_IMPREEMPEMP_RAZSOC: TStringField
      FieldName = 'EMP_RAZSOC'
      Required = True
      Size = 60
    end
    object SQLC_IMPREEMPEMP_FANTAS: TStringField
      FieldName = 'EMP_FANTAS'
      Required = True
      Size = 60
    end
    object SQLC_IMPREEMPEMP_ENDERE: TStringField
      FieldName = 'EMP_ENDERE'
      Size = 60
    end
    object SQLC_IMPREEMPEMP_BAIRRO: TStringField
      FieldName = 'EMP_BAIRRO'
      Size = 40
    end
    object SQLC_IMPREEMPEMP_CIDCOD: TStringField
      FieldName = 'EMP_CIDCOD'
      Required = True
      Size = 3
    end
    object SQLC_IMPREEMPEMP_ESTCOD: TStringField
      FieldName = 'EMP_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_IMPREEMPEMP_CODPOS: TStringField
      FieldName = 'EMP_CODPOS'
      Size = 10
    end
    object SQLC_IMPREEMPEMP_FONE: TStringField
      FieldName = 'EMP_FONE'
      Size = 30
    end
    object SQLC_IMPREEMPEMP_FAX: TStringField
      FieldName = 'EMP_FAX'
      Size = 30
    end
    object SQLC_IMPREEMPEMP_CNPJ: TStringField
      FieldName = 'EMP_CNPJ'
      Size = 18
    end
    object SQLC_IMPREEMPEMP_INSEST: TStringField
      FieldName = 'EMP_INSEST'
    end
    object SQLC_IMPREEMPEMP_EMAIL: TStringField
      FieldName = 'EMP_EMAIL'
      Size = 60
    end
    object SQLC_IMPREEMPEMP_OBSERV: TMemoField
      FieldName = 'EMP_OBSERV'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_IMPREEMPEMP_DATABE: TDateField
      FieldName = 'EMP_DATABE'
      Required = True
    end
  end
  object rdv_Empresa: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_IMPREEMP
    Left = 401
    Top = 373
  end
  object DsParentesco: TDataSource
    AutoEdit = False
    DataSet = SQLC_PARENTESCO
    OnStateChange = DsDependentesStateChange
    Left = 528
    Top = 344
  end
  object dsPlanos: TDataSource
    AutoEdit = False
    DataSet = SQLC_PLANOS
    OnStateChange = DtSrcStateChange
    Left = 560
    Top = 346
  end
end
